/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / SystemCode / think.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 74 68 69 6e 6b 2e | 74 63 6c 00 00 00 00 00 |..think.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 1e f5 00 | 00 03 88 aa 99 79 0b aa |........|.....y..|
|00000060| 99 79 0b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.y......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4b de 00 00 |........|....K...|
|00000080| 23 20 54 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |# The fo|llowing |
|00000090| 66 6c 61 67 73 20 61 66 | 66 65 63 74 20 54 68 69 |flags af|fect Thi|
|000000a0| 6e 6b 27 73 20 22 52 75 | 6e 22 20 63 6f 6d 6d 61 |nk's "Ru|n" comma|
|000000b0| 6e 64 2e 0d 23 20 54 48 | 49 4e 4b 20 77 69 6c 6c |nd..# TH|INK will|
|000000c0| 20 63 72 61 73 68 20 69 | 66 20 79 6f 75 20 73 65 | crash i|f you se|
|000000d0| 74 20 74 68 65 20 64 65 | 62 75 67 67 65 72 20 66 |t the de|bugger f|
|000000e0| 6c 61 67 20 61 6e 64 20 | 79 6f 75 72 20 0d 23 20 |lag and |your .# |
|000000f0| 70 72 6f 6a 65 63 74 20 | 64 6f 65 73 20 6e 6f 74 |project |does not|
|00000100| 20 68 61 76 65 20 64 65 | 62 75 67 67 69 6e 67 20 | have de|bugging |
|00000110| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 2e 20 0d 69 66 |informat|ion. .if|
|00000120| 20 7b 21 5b 69 6e 66 6f | 20 65 78 69 73 74 73 20 | {![info| exists |
|00000130| 74 68 69 6e 6b 64 65 62 | 75 67 67 65 72 5d 7d 20 |thinkdeb|ugger]} |
|00000140| 09 7b 73 65 74 20 74 68 | 69 6e 6b 64 65 62 75 67 |.{set th|inkdebug|
|00000150| 67 65 72 20 09 30 7d 0d | 69 66 20 7b 21 5b 69 6e |ger .0}.|if {![in|
|00000160| 66 6f 20 65 78 69 73 74 | 73 20 74 68 69 6e 6b 67 |fo exist|s thinkg|
|00000170| 6f 5d 7d 20 09 09 7b 73 | 65 74 20 74 68 69 6e 6b |o]} ..{s|et think|
|00000180| 67 6f 20 09 09 31 7d 0d | 69 66 20 7b 21 5b 69 6e |go ..1}.|if {![in|
|00000190| 66 6f 20 65 78 69 73 74 | 73 20 74 68 69 6e 6b 73 |fo exist|s thinks|
|000001a0| 61 76 65 44 69 72 74 79 | 5d 7d 20 09 7b 73 65 74 |aveDirty|]} .{set|
|000001b0| 20 74 68 69 6e 6b 73 61 | 76 65 44 69 72 74 79 09 | thinksa|veDirty.|
|000001c0| 31 7d 0d 69 66 20 7b 21 | 5b 69 6e 66 6f 20 65 78 |1}.if {!|[info ex|
|000001d0| 69 73 74 73 20 74 68 69 | 6e 6b 75 70 64 61 74 65 |ists thi|nkupdate|
|000001e0| 5d 7d 20 09 7b 73 65 74 | 20 74 68 69 6e 6b 75 70 |]} .{set| thinkup|
|000001f0| 64 61 74 65 20 09 31 7d | 0d 0d 6d 65 6e 75 20 2d |date .1}|..menu -|
|00000200| 6e 20 74 68 69 6e 6b 46 | 6c 61 67 73 20 2d 70 20 |n thinkF|lags -p |
|00000210| 74 68 69 6e 6b 46 6c 61 | 67 73 50 72 6f 63 20 7b |thinkFla|gsProc {|
|00000220| 22 64 65 62 75 67 67 65 | 72 22 20 22 67 6f 22 20 |"debugge|r" "go" |
|00000230| 22 73 61 76 65 44 69 72 | 74 79 22 20 22 75 70 64 |"saveDir|ty" "upd|
|00000240| 61 74 65 22 7d 0d 6d 61 | 72 6b 4d 65 6e 75 49 74 |ate"}.ma|rkMenuIt|
|00000250| 65 6d 20 74 68 69 6e 6b | 46 6c 61 67 73 20 64 65 |em think|Flags de|
|00000260| 62 75 67 67 65 72 20 09 | 24 74 68 69 6e 6b 64 65 |bugger .|$thinkde|
|00000270| 62 75 67 67 65 72 0d 6d | 61 72 6b 4d 65 6e 75 49 |bugger.m|arkMenuI|
|00000280| 74 65 6d 20 74 68 69 6e | 6b 46 6c 61 67 73 20 67 |tem thin|kFlags g|
|00000290| 6f 09 20 09 09 24 74 68 | 69 6e 6b 67 6f 0d 6d 61 |o. ..$th|inkgo.ma|
|000002a0| 72 6b 4d 65 6e 75 49 74 | 65 6d 20 74 68 69 6e 6b |rkMenuIt|em think|
|000002b0| 46 6c 61 67 73 20 73 61 | 76 65 44 69 72 74 79 09 |Flags sa|veDirty.|
|000002c0| 24 74 68 69 6e 6b 73 61 | 76 65 44 69 72 74 79 0d |$thinksa|veDirty.|
|000002d0| 6d 61 72 6b 4d 65 6e 75 | 49 74 65 6d 20 74 68 69 |markMenu|Item thi|
|000002e0| 6e 6b 46 6c 61 67 73 20 | 75 70 64 61 74 65 09 20 |nkFlags |update. |
|000002f0| 09 24 74 68 69 6e 6b 75 | 70 64 61 74 65 0d 0d 70 |.$thinku|pdate..p|
|00000300| 72 6f 63 20 74 68 69 6e | 6b 46 6c 61 67 73 50 72 |roc thin|kFlagsPr|
|00000310| 6f 63 20 7b 6d 65 6e 75 | 20 69 74 65 6d 7d 20 7b |oc {menu| item} {|
|00000320| 0d 09 67 6c 6f 62 61 6c | 20 74 68 69 6e 6b 24 69 |..global| think$i|
|00000330| 74 65 6d 20 6d 6f 64 69 | 66 69 65 64 56 61 72 73 |tem modi|fiedVars|
|00000340| 0d 09 0d 09 73 65 74 20 | 74 68 69 6e 6b 24 69 74 |....set |think$it|
|00000350| 65 6d 20 5b 65 78 70 72 | 20 2d 31 20 2a 20 28 5b |em [expr| -1 * ([|
|00000360| 73 65 74 20 74 68 69 6e | 6b 24 69 74 65 6d 5d 20 |set thin|k$item] |
|00000370| 2d 20 31 29 5d 0d 09 6d | 61 72 6b 4d 65 6e 75 49 |- 1)]..m|arkMenuI|
|00000380| 74 65 6d 20 74 68 69 6e | 6b 46 6c 61 67 73 20 24 |tem thin|kFlags $|
|00000390| 69 74 65 6d 20 5b 73 65 | 74 20 74 68 69 6e 6b 24 |item [se|t think$|
|000003a0| 69 74 65 6d 5d 0d 09 6c | 61 70 70 65 6e 64 20 6d |item]..l|append m|
|000003b0| 6f 64 69 66 69 65 64 56 | 61 72 73 20 74 68 69 6e |odifiedV|ars thin|
|000003c0| 6b 24 69 74 65 6d 0d 7d | 0d 0d 73 65 74 20 54 48 |k$item.}|..set TH|
|000003d0| 49 4e 4b 20 22 54 48 49 | 4e 4b 20 50 72 6f 6a 65 |INK "THI|NK Proje|
|000003e0| 63 74 20 4d 61 6e 61 67 | 65 72 22 0d 23 73 65 74 |ct Manag|er".#set|
|000003f0| 20 54 48 49 4e 4b 20 22 | 41 45 76 65 6e 74 20 44 | THINK "|AEvent D|
|00000400| 69 73 70 6c 61 79 20 31 | 2e 33 22 0d 0d 0d 70 72 |isplay 1|.3"...pr|
|00000410| 6f 63 20 74 68 69 6e 6b | 4e 75 6d 46 69 6c 65 73 |oc think|NumFiles|
|00000420| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 54 48 | {} {..g|lobal TH|
|00000430| 49 4e 4b 0d 09 73 65 74 | 20 73 74 72 20 5b 41 45 |INK..set| str [AE|
|00000440| 42 75 69 6c 64 20 2d 72 | 20 24 54 48 49 4e 4b 20 |Build -r| $THINK |
|00000450| 22 63 6f 72 65 22 20 22 | 63 6e 74 65 22 20 22 2d |"core" "|cnte" "-|
|00000460| 2d 2d 2d 22 20 7b 6f 62 | 6a 7b 77 61 6e 74 3a 74 |---" {ob|j{want:t|
|00000470| 79 70 65 28 27 50 44 4f | 43 27 29 2c 20 66 72 6f |ype('PDO|C'), fro|
|00000480| 6d 3a 27 6e 75 6c 6c 27 | 28 29 2c 20 66 6f 72 6d |m:'null'|(), form|
|00000490| 3a 27 69 6e 64 78 27 2c | 20 73 65 6c 64 3a 31 7d |:'indx',| seld:1}|
|000004a0| 7d 20 22 6b 6f 63 6c 22 | 20 22 74 79 70 65 28 27 |} "kocl"| "type('|
|000004b0| 53 46 49 4c 27 29 22 5d | 0d 09 69 66 20 7b 5b 72 |SFIL')"]|..if {[r|
|000004c0| 65 67 65 78 70 20 7b 5b | 30 2d 39 5d 2b 7d 20 24 |egexp {[|0-9]+} $|
|000004d0| 73 74 72 20 6d 74 63 68 | 5d 7d 20 7b 0d 09 09 72 |str mtch|]} {...r|
|000004e0| 65 74 75 72 6e 20 24 6d | 74 63 68 0d 09 7d 20 65 |eturn $m|tch..} e|
|000004f0| 6c 73 65 20 7b 0d 09 09 | 65 72 72 6f 72 20 22 42 |lse {...|error "B|
|00000500| 61 64 20 6e 75 6d 66 69 | 6c 65 73 22 0d 09 7d 0d |ad numfi|les"..}.|
|00000510| 7d 0d 0d 0d 0d 23 20 47 | 65 74 20 6c 69 73 74 20 |}....# G|et list |
|00000520| 6f 66 20 66 69 6c 65 73 | 20 69 6e 20 63 75 72 72 |of files| in curr|
|00000530| 65 6e 74 20 70 72 6f 6a | 65 63 74 2e 0d 70 72 6f |ent proj|ect..pro|
|00000540| 63 20 70 72 6f 6a 65 63 | 74 46 69 6c 65 4c 69 73 |c projec|tFileLis|
|00000550| 74 20 61 72 67 73 20 7b | 0d 09 77 61 74 63 68 43 |t args {|..watchC|
|00000560| 75 72 73 6f 72 0d 09 63 | 68 65 63 6b 52 75 6e 6e |ursor..c|heckRunn|
|00000570| 69 6e 67 20 54 68 69 6e | 6b 43 20 4b 41 48 4c 20 |ing Thin|kC KAHL |
|00000580| 74 68 69 6e 6b 4e 61 6d | 65 0d 09 73 65 74 20 6e |thinkNam|e..set n|
|00000590| 75 6d 20 5b 74 68 69 6e | 6b 4e 75 6d 46 69 6c 65 |um [thin|kNumFile|
|000005a0| 73 5d 0d 09 73 65 74 20 | 66 69 6c 65 73 20 7b 7d |s]..set |files {}|
|000005b0| 0d 0d 09 66 6f 72 20 7b | 73 65 74 20 69 20 31 7d |...for {|set i 1}|
|000005c0| 20 7b 24 69 3c 3d 24 6e | 75 6d 7d 20 7b 69 6e 63 | {$i<=$n|um} {inc|
|000005d0| 72 20 69 7d 20 7b 0d 09 | 09 73 65 74 20 66 20 5b |r i} {..|.set f [|
|000005e0| 74 68 69 6e 6b 46 69 6c | 65 4e 61 6d 65 20 24 69 |thinkFil|eName $i|
|000005f0| 5d 0d 09 09 73 65 74 20 | 6c 20 5b 6c 73 20 2d 6c |]...set |l [ls -l|
|00000600| 20 24 66 5d 0d 09 09 69 | 66 20 7b 5b 6c 69 6e 64 | $f]...i|f {[lind|
|00000610| 65 78 20 24 6c 20 37 5d | 20 3d 3d 20 22 54 45 58 |ex $l 7]| == "TEX|
|00000620| 54 22 7d 20 7b 0d 09 09 | 09 6c 61 70 70 65 6e 64 |T"} {...|.lappend|
|00000630| 20 66 69 6c 65 73 20 24 | 66 0d 09 09 7d 0d 09 7d | files $|f...}..}|
|00000640| 0d 0d 09 72 65 74 75 72 | 6e 20 24 66 69 6c 65 73 |...retur|n $files|
|00000650| 0d 7d 0d 0d 0d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |.}.....#|========|
|00000660| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000680| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000690| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006a0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 0d 70 72 6f 63 20 |========|...proc |
|000006b0| 74 68 69 6e 6b 20 7b 7d | 20 7b 0d 09 73 65 74 20 |think {}| {..set |
|000006c0| 6e 61 6d 65 20 5b 63 68 | 65 63 6b 52 75 6e 6e 69 |name [ch|eckRunni|
|000006d0| 6e 67 20 54 68 69 6e 6b | 43 20 4b 41 48 4c 20 74 |ng Think|C KAHL t|
|000006e0| 68 69 6e 6b 4e 61 6d 65 | 5d 0d 09 69 66 20 7b 21 |hinkName|]..if {!|
|000006f0| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|00000700| 6e 61 6d 65 5d 7d 20 72 | 65 74 75 72 6e 0d 09 73 |name]} r|eturn..s|
|00000710| 77 69 74 63 68 54 6f 20 | 24 6e 61 6d 65 0d 7d 0d |witchTo |$name.}.|
|00000720| 0d 70 72 6f 63 20 73 65 | 61 72 63 68 4e 65 78 74 |.proc se|archNext|
|00000730| 46 69 6c 65 20 7b 7d 20 | 7b 0d 09 74 68 69 6e 6b |File {} |{..think|
|00000740| 46 69 6e 66 0d 7d 0d 0d | 0d 0d 23 3d 3d 3d 3d 3d |Finf.}..|..#=====|
|00000750| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000760| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000770| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000780| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000790| 3d 3d 3d 3d 3d 3d 0d 23 | 20 41 64 64 20 66 69 6c |======.#| Add fil|
|000007a0| 65 73 65 74 2e 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |eset..#=|========|
|000007b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007f0| 3d 3d 0d 70 72 6f 63 20 | 63 72 65 61 74 65 54 68 |==.proc |createTh|
|00000800| 69 6e 6b 46 69 6c 65 73 | 65 74 20 7b 7d 20 7b 0d |inkFiles|et {} {.|
|00000810| 09 67 6c 6f 62 61 6c 20 | 66 69 6c 65 53 65 74 73 |.global |fileSets|
|00000820| 0d 09 67 6c 6f 62 61 6c | 20 63 75 72 72 46 69 6c |..global| currFil|
|00000830| 65 53 65 74 0d 09 0d 09 | 73 65 74 20 6e 61 6d 65 |eSet....|set name|
|00000840| 20 5b 70 72 6f 6d 70 74 | 20 22 46 69 6c 65 73 65 | [prompt| "Filese|
|00000850| 74 20 6e 61 6d 65 3f 20 | 22 20 22 54 48 49 4e 4b |t name? |" "THINK|
|00000860| 22 5d 0d 09 73 65 74 20 | 66 69 6c 65 53 65 74 73 |"]..set |fileSets|
|00000870| 28 24 6e 61 6d 65 29 20 | 5b 70 72 6f 6a 65 63 74 |($name) |[project|
|00000880| 46 69 6c 65 4c 69 73 74 | 5d 0d 09 61 64 64 4d 65 |FileList|]..addMe|
|00000890| 6e 75 49 74 65 6d 20 2d | 6d 20 63 68 6f 6f 73 65 |nuItem -|m choose|
|000008a0| 20 24 6e 61 6d 65 0d 09 | 73 65 74 20 63 75 72 72 | $name..|set curr|
|000008b0| 46 69 6c 65 53 65 74 20 | 24 6e 61 6d 65 0d 0d 09 |FileSet |$name...|
|000008c0| 69 66 20 7b 5b 61 73 6b | 79 65 73 6e 6f 20 22 53 |if {[ask|yesno "S|
|000008d0| 61 76 65 20 70 72 6f 6a | 65 63 74 20 66 69 6c 65 |ave proj|ect file|
|000008e0| 73 65 74 3f 22 5d 20 3d | 3d 20 22 79 65 73 22 7d |set?"] =|= "yes"}|
|000008f0| 20 7b 0d 09 09 61 64 64 | 55 73 65 72 4c 69 6e 65 | {...add|UserLine|
|00000900| 20 22 73 65 74 20 5c 22 | 66 69 6c 65 53 65 74 73 | "set \"|fileSets|
|00000910| 28 24 6e 61 6d 65 29 5c | 22 20 5c 7b 24 66 69 6c |($name)\|" \{$fil|
|00000920| 65 53 65 74 73 28 24 6e | 61 6d 65 29 5c 7d 22 0d |eSets($n|ame)\}".|
|00000930| 09 7d 0d 09 6d 61 6b 65 | 46 69 6c 65 73 65 74 4d |.}..make|FilesetM|
|00000940| 65 6e 75 0d 7d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |enu.}..#|========|
|00000950| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000960| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000970| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000990| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 70 72 6f 63 20 63 |========|..proc c|
|000009a0| 6f 6d 70 69 6c 65 20 7b | 7d 20 7b 0d 09 73 65 6e |ompile {|} {..sen|
|000009b0| 64 43 6f 6d 70 69 6c 65 | 45 76 65 6e 74 20 43 4d |dCompile|Event CM|
|000009c0| 50 4c 20 22 2d 72 22 0d | 7d 0d 0d 70 72 6f 63 20 |PL "-r".|}..proc |
|000009d0| 63 68 65 63 6b 53 79 6e | 74 61 78 20 7b 7d 20 7b |checkSyn|tax {} {|
|000009e0| 0d 09 73 65 6e 64 43 6f | 6d 70 69 6c 65 45 76 65 |..sendCo|mpileEve|
|000009f0| 6e 74 20 53 4e 54 58 20 | 22 2d 71 22 0d 7d 0d 0d |nt SNTX |"-q".}..|
|00000a00| 70 72 6f 63 20 64 69 73 | 61 73 73 65 6d 62 6c 65 |proc dis|assemble|
|00000a10| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 54 48 | {} {..g|lobal TH|
|00000a20| 49 4e 4b 20 41 4c 50 48 | 41 0d 09 73 65 74 20 74 |INK ALPH|A..set t|
|00000a30| 6e 61 6d 65 20 5b 63 68 | 65 63 6b 52 75 6e 6e 69 |name [ch|eckRunni|
|00000a40| 6e 67 20 54 68 69 6e 6b | 43 20 4b 41 48 4c 20 74 |ng Think|C KAHL t|
|00000a50| 68 69 6e 6b 4e 61 6d 65 | 5d 0d 09 73 65 74 20 6e |hinkName|]..set n|
|00000a60| 61 6d 65 20 5b 6c 69 6e | 64 65 78 20 5b 77 69 6e |ame [lin|dex [win|
|00000a70| 4e 61 6d 65 73 20 2d 66 | 5d 20 30 5d 0d 09 73 77 |Names -f|] 0]..sw|
|00000a80| 69 74 63 68 54 6f 20 24 | 74 6e 61 6d 65 0d 09 73 |itchTo $|tname..s|
|00000a90| 65 74 20 72 65 73 20 5b | 41 45 42 75 69 6c 64 20 |et res [|AEBuild |
|00000aa0| 2d 74 20 37 32 30 30 20 | 2d 72 20 24 74 6e 61 6d |-t 7200 |-r $tnam|
|00000ab0| 65 20 4b 41 48 4c 20 44 | 41 53 4d 20 43 46 4c 47 |e KAHL D|ASM CFLG|
|00000ac0| 20 6c 6f 6e 67 28 33 32 | 29 20 22 2d 2d 2d 2d 22 | long(32|) "----"|
|00000ad0| 20 5b 66 69 6c 65 4f 62 | 6a 65 63 74 20 24 6e 61 | [fileOb|ject $na|
|00000ae0| 6d 65 5d 5d 0d 09 73 77 | 69 74 63 68 54 6f 20 24 |me]]..sw|itchTo $|
|00000af0| 41 4c 50 48 41 0d 09 6e | 65 77 20 2d 6e 20 22 2a |ALPHA..n|ew -n "*|
|00000b00| 20 5b 66 69 6c 65 20 72 | 6f 6f 74 20 5b 66 69 6c | [file r|oot [fil|
|00000b10| 65 20 74 61 69 6c 20 24 | 6e 61 6d 65 5d 5d 2e 61 |e tail $|name]].a|
|00000b20| 73 6d 20 2a 22 0d 09 72 | 65 67 65 78 70 20 7b d2 |sm *"..r|egexp {.|
|00000b30| 2e 2a d3 7d 20 24 72 65 | 73 20 74 65 78 74 0d 09 |.*.} $re|s text..|
|00000b40| 69 6e 73 65 72 74 54 65 | 78 74 20 5b 73 74 72 69 |insertTe|xt [stri|
|00000b50| 6e 67 20 74 72 69 6d 20 | 24 74 65 78 74 20 7b d2 |ng trim |$text {.|
|00000b60| d3 7d 5d 0d 09 73 65 74 | 57 69 6e 49 6e 66 6f 20 |.}]..set|WinInfo |
|00000b70| 64 69 72 74 79 20 30 0d | 09 67 6f 74 6f 20 30 0d |dirty 0.|.goto 0.|
|00000b80| 7d 0d 0d 70 72 6f 63 20 | 70 72 65 70 72 6f 63 65 |}..proc |preproce|
|00000b90| 73 73 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |ss {} {.|.global |
|00000ba0| 54 48 49 4e 4b 20 41 4c | 50 48 41 0d 09 73 65 74 |THINK AL|PHA..set|
|00000bb0| 20 74 6e 61 6d 65 20 5b | 63 68 65 63 6b 52 75 6e | tname [|checkRun|
|00000bc0| 6e 69 6e 67 20 54 68 69 | 6e 6b 43 20 4b 41 48 4c |ning Thi|nkC KAHL|
|00000bd0| 20 74 68 69 6e 6b 4e 61 | 6d 65 5d 0d 09 73 65 74 | thinkNa|me]..set|
|00000be0| 20 6e 61 6d 65 20 5b 6c | 69 6e 64 65 78 20 5b 77 | name [l|index [w|
|00000bf0| 69 6e 4e 61 6d 65 73 20 | 2d 66 5d 20 30 5d 0d 09 |inNames |-f] 0]..|
|00000c00| 73 77 69 74 63 68 54 6f | 20 24 74 6e 61 6d 65 0d |switchTo| $tname.|
|00000c10| 09 73 65 74 20 72 65 73 | 20 5b 41 45 42 75 69 6c |.set res| [AEBuil|
|00000c20| 64 20 2d 72 20 24 74 6e | 61 6d 65 20 4b 41 48 4c |d -r $tn|ame KAHL|
|00000c30| 20 50 52 43 53 20 43 46 | 4c 47 20 6c 6f 6e 67 28 | PRCS CF|LG long(|
|00000c40| 33 32 29 20 22 2d 2d 2d | 2d 22 20 5b 66 69 6c 65 |32) "---|-" [file|
|00000c50| 4f 62 6a 65 63 74 20 24 | 6e 61 6d 65 5d 5d 0d 09 |Object $|name]]..|
|00000c60| 73 77 69 74 63 68 54 6f | 20 24 41 4c 50 48 41 0d |switchTo| $ALPHA.|
|00000c70| 09 6e 65 77 20 2d 6e 20 | 22 2a 20 50 72 65 70 72 |.new -n |"* Prepr|
|00000c80| 6f 63 65 73 73 65 64 20 | 27 5b 66 69 6c 65 20 74 |ocessed |'[file t|
|00000c90| 61 69 6c 20 24 6e 61 6d | 65 5d 27 20 2a 22 0d 09 |ail $nam|e]' *"..|
|00000ca0| 72 65 67 65 78 70 20 7b | d2 2e 2a d3 7d 20 24 72 |regexp {|..*.} $r|
|00000cb0| 65 73 20 74 65 78 74 0d | 09 69 6e 73 65 72 74 54 |es text.|.insertT|
|00000cc0| 65 78 74 20 5b 73 74 72 | 69 6e 67 20 74 72 69 6d |ext [str|ing trim|
|00000cd0| 20 24 74 65 78 74 20 7b | d2 d3 7d 5d 0d 7d 0d 0d | $text {|..}].}..|
|00000ce0| 0d 70 72 6f 63 20 73 65 | 6e 64 43 6f 6d 70 69 6c |.proc se|ndCompil|
|00000cf0| 65 45 76 65 6e 74 20 7b | 65 76 65 6e 74 20 61 72 |eEvent {|event ar|
|00000d00| 67 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 54 48 49 |g} {..gl|obal THI|
|00000d10| 4e 4b 20 41 4c 50 48 41 | 0d 09 73 65 74 20 74 6e |NK ALPHA|..set tn|
|00000d20| 61 6d 65 20 5b 63 68 65 | 63 6b 52 75 6e 6e 69 6e |ame [che|ckRunnin|
|00000d30| 67 20 54 68 69 6e 6b 43 | 20 4b 41 48 4c 20 74 68 |g ThinkC| KAHL th|
|00000d40| 69 6e 6b 4e 61 6d 65 5d | 0d 09 73 65 74 20 6e 61 |inkName]|..set na|
|00000d50| 6d 65 20 5b 6c 69 6e 64 | 65 78 20 5b 77 69 6e 4e |me [lind|ex [winN|
|00000d60| 61 6d 65 73 20 2d 66 5d | 20 30 5d 0d 09 73 77 69 |ames -f]| 0]..swi|
|00000d70| 74 63 68 54 6f 20 24 74 | 6e 61 6d 65 0d 09 69 66 |tchTo $t|name..if|
|00000d80| 20 7b 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 | {[strin|g length|
|00000d90| 20 24 61 72 67 5d 7d 20 | 7b 0d 09 09 73 65 74 20 | $arg]} |{...set |
|00000da0| 72 65 73 20 5b 41 45 42 | 75 69 6c 64 20 2d 74 20 |res [AEB|uild -t |
|00000db0| 37 32 30 30 20 24 61 72 | 67 20 24 74 6e 61 6d 65 |7200 $ar|g $tname|
|00000dc0| 20 4b 41 48 4c 20 20 24 | 65 76 65 6e 74 20 22 2d | KAHL  $|event "-|
|00000dd0| 2d 2d 2d 22 20 5b 66 69 | 6c 65 4f 62 6a 65 63 74 |---" [fi|leObject|
|00000de0| 20 24 6e 61 6d 65 5d 5d | 0d 09 7d 20 65 6c 73 65 | $name]]|..} else|
|00000df0| 20 7b 0d 09 09 73 65 74 | 20 72 65 73 20 5b 41 45 | {...set| res [AE|
|00000e00| 42 75 69 6c 64 20 2d 74 | 20 37 32 30 30 20 24 74 |Build -t| 7200 $t|
|00000e10| 6e 61 6d 65 20 4b 41 48 | 4c 20 20 24 65 76 65 6e |name KAH|L  $even|
|00000e20| 74 20 22 2d 2d 2d 2d 22 | 20 5b 66 69 6c 65 4f 62 |t "----"| [fileOb|
|00000e30| 6a 65 63 74 20 24 6e 61 | 6d 65 5d 5d 0d 09 7d 0d |ject $na|me]]..}.|
|00000e40| 09 73 77 69 74 63 68 54 | 6f 20 24 41 4c 50 48 41 |.switchT|o $ALPHA|
|00000e50| 0d 09 72 65 74 75 72 6e | 20 24 72 65 73 0d 7d 0d |..return| $res.}.|
|00000e60| 0d 0d 70 72 6f 63 20 61 | 64 64 20 7b 7d 20 7b 0d |..proc a|dd {} {.|
|00000e70| 09 67 6c 6f 62 61 6c 20 | 54 48 49 4e 4b 0d 09 73 |.global |THINK..s|
|00000e80| 65 74 20 66 6e 61 6d 65 | 20 5b 6c 69 6e 64 65 78 |et fname| [lindex|
|00000e90| 20 5b 77 69 6e 4e 61 6d | 65 73 20 2d 66 5d 20 30 | [winNam|es -f] 0|
|00000ea0| 5d 0d 09 41 45 42 75 69 | 6c 64 20 24 54 48 49 4e |]..AEBui|ld $THIN|
|00000eb0| 4b 20 63 6f 72 65 20 63 | 72 65 6c 20 22 64 61 74 |K core c|rel "dat|
|00000ec0| 61 22 20 5b 6d 61 6b 65 | 41 6c 69 73 20 24 66 6e |a" [make|Alis $fn|
|00000ed0| 61 6d 65 5d 20 22 6b 6f | 63 6c 22 20 22 74 79 70 |ame] "ko|cl" "typ|
|00000ee0| 65 28 27 53 46 49 4c 27 | 29 22 0d 7d 0d 0d 70 72 |e('SFIL'|)".}..pr|
|00000ef0| 6f 63 20 61 64 64 41 6e | 64 43 6f 6d 70 69 6c 65 |oc addAn|dCompile|
|00000f00| 20 7b 7d 20 7b 0d 09 61 | 64 64 0d 09 63 6f 6d 70 | {} {..a|dd..comp|
|00000f10| 69 6c 65 0d 7d 0d 0d 0d | 70 72 6f 63 20 70 72 65 |ile.}...|proc pre|
|00000f20| 63 6f 6d 70 69 6c 65 20 | 7b 7d 20 7b 0d 09 73 65 |compile |{} {..se|
|00000f30| 6e 64 43 6f 6d 70 69 6c | 65 45 76 65 6e 74 20 50 |ndCompil|eEvent P|
|00000f40| 43 4d 50 20 22 22 0d 7d | 0d 0d 70 72 6f 63 20 62 |CMP "".}|..proc b|
|00000f50| 72 69 6e 67 55 70 54 6f | 44 61 74 65 20 7b 7d 20 |ringUpTo|Date {} |
|00000f60| 7b 0d 09 67 6c 6f 62 61 | 6c 20 54 48 49 4e 4b 20 |{..globa|l THINK |
|00000f70| 41 4c 50 48 41 0d 09 73 | 65 74 20 6e 61 6d 65 20 |ALPHA..s|et name |
|00000f80| 5b 63 68 65 63 6b 52 75 | 6e 6e 69 6e 67 20 54 68 |[checkRu|nning Th|
|00000f90| 69 6e 6b 43 20 4b 41 48 | 4c 20 74 68 69 6e 6b 4e |inkC KAH|L thinkN|
|00000fa0| 61 6d 65 5d 0d 09 73 77 | 69 74 63 68 54 6f 20 24 |ame]..sw|itchTo $|
|00000fb0| 6e 61 6d 65 0d 09 73 65 | 74 20 72 65 73 20 5b 41 |name..se|t res [A|
|00000fc0| 45 42 75 69 6c 64 20 2d | 71 20 24 6e 61 6d 65 20 |EBuild -|q $name |
|00000fd0| 4b 41 48 4c 20 43 4d 50 | 4c 20 53 4c 43 54 20 4d |KAHL CMP|L SLCT M|
|00000fe0| 41 4b 45 20 22 43 46 4c | 47 22 20 22 6c 6f 6e 67 |AKE "CFL|G" "long|
|00000ff0| 28 32 29 22 20 22 2d 2d | 2d 2d 22 20 7b 6f 62 6a |(2)" "--|--" {obj|
|00001000| 7b 77 61 6e 74 3a 74 79 | 70 65 28 27 50 44 4f 43 |{want:ty|pe('PDOC|
|00001010| 27 29 2c 20 66 72 6f 6d | 3a 27 6e 75 6c 6c 27 28 |'), from|:'null'(|
|00001020| 29 2c 20 66 6f 72 6d 3a | 27 69 6e 64 78 27 2c 20 |), form:|'indx', |
|00001030| 73 65 6c 64 3a 31 7d 7d | 5d 20 0d 09 73 77 69 74 |seld:1}}|] ..swit|
|00001040| 63 68 54 6f 20 24 41 4c | 50 48 41 0d 09 72 65 74 |chTo $AL|PHA..ret|
|00001050| 75 72 6e 20 24 72 65 73 | 0d 7d 0d 0d 70 72 6f 63 |urn $res|.}..proc|
|00001060| 20 6d 61 6b 65 20 7b 7d | 20 7b 0d 09 67 6c 6f 62 | make {}| {..glob|
|00001070| 61 6c 20 54 48 49 4e 4b | 20 41 4c 50 48 41 0d 09 |al THINK| ALPHA..|
|00001080| 73 65 74 20 6e 61 6d 65 | 20 5b 63 68 65 63 6b 52 |set name| [checkR|
|00001090| 75 6e 6e 69 6e 67 20 54 | 68 69 6e 6b 43 20 4b 41 |unning T|hinkC KA|
|000010a0| 48 4c 20 74 68 69 6e 6b | 4e 61 6d 65 5d 0d 09 73 |HL think|Name]..s|
|000010b0| 77 69 74 63 68 54 6f 20 | 24 6e 61 6d 65 0d 09 73 |witchTo |$name..s|
|000010c0| 65 74 20 72 65 73 20 5b | 41 45 42 75 69 6c 64 20 |et res [|AEBuild |
|000010d0| 2d 71 20 24 6e 61 6d 65 | 20 4b 41 48 4c 20 43 4d |-q $name| KAHL CM|
|000010e0| 50 4c 20 53 4c 43 54 20 | 4d 41 4b 45 20 22 43 46 |PL SLCT |MAKE "CF|
|000010f0| 4c 47 22 20 22 6c 6f 6e | 67 28 32 29 22 20 22 2d |LG" "lon|g(2)" "-|
|00001100| 2d 2d 2d 22 20 7b 6f 62 | 6a 7b 77 61 6e 74 3a 74 |---" {ob|j{want:t|
|00001110| 79 70 65 28 27 50 44 4f | 43 27 29 2c 20 66 72 6f |ype('PDO|C'), fro|
|00001120| 6d 3a 27 6e 75 6c 6c 27 | 28 29 2c 20 66 6f 72 6d |m:'null'|(), form|
|00001130| 3a 27 69 6e 64 78 27 2c | 20 73 65 6c 64 3a 31 7d |:'indx',| seld:1}|
|00001140| 7d 5d 20 0d 7d 0d 0d 70 | 72 6f 63 20 72 75 6e 20 |}] .}..p|roc run |
|00001150| 7b 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 54 48 49 |{} {..gl|obal THI|
|00001160| 4e 4b 20 74 68 69 6e 6b | 64 65 62 75 67 67 65 72 |NK think|debugger|
|00001170| 20 74 68 69 6e 6b 67 6f | 20 74 68 69 6e 6b 73 61 | thinkgo| thinksa|
|00001180| 76 65 44 69 72 74 79 20 | 74 68 69 6e 6b 75 70 64 |veDirty |thinkupd|
|00001190| 61 74 65 0d 09 0d 09 73 | 65 74 20 6e 61 6d 65 20 |ate....s|et name |
|000011a0| 5b 63 68 65 63 6b 52 75 | 6e 6e 69 6e 67 20 54 68 |[checkRu|nning Th|
|000011b0| 69 6e 6b 43 20 4b 41 48 | 4c 20 74 68 69 6e 6b 4e |inkC KAH|L thinkN|
|000011c0| 61 6d 65 5d 0d 09 73 65 | 74 20 64 62 75 67 20 5b |ame]..se|t dbug [|
|000011d0| 65 78 70 72 20 7b 24 74 | 68 69 6e 6b 64 65 62 75 |expr {$t|hinkdebu|
|000011e0| 67 67 65 72 20 3f 20 22 | 62 6f 6f 6c 28 c7 30 31 |gger ? "|bool(.01|
|000011f0| c8 29 22 20 3a 20 22 62 | 6f 6f 6c 28 c7 30 30 c8 |.)" : "b|ool(.00.|
|00001200| 29 22 7d 5d 0d 09 73 65 | 74 20 67 6f 20 5b 65 78 |)"}]..se|t go [ex|
|00001210| 70 72 20 7b 24 74 68 69 | 6e 6b 67 6f 20 3f 20 22 |pr {$thi|nkgo ? "|
|00001220| 62 6f 6f 6c 28 c7 30 31 | c8 29 22 20 3a 20 22 62 |bool(.01|.)" : "b|
|00001230| 6f 6f 6c 28 c7 30 30 c8 | 29 22 7d 5d 0d 09 73 65 |ool(.00.|)"}]..se|
|00001240| 74 20 75 70 64 61 74 65 | 20 5b 65 78 70 72 20 7b |t update| [expr {|
|00001250| 24 74 68 69 6e 6b 75 70 | 64 61 74 65 20 3f 20 22 |$thinkup|date ? "|
|00001260| 27 79 65 73 20 27 22 20 | 3a 20 22 27 6e 6f 20 20 |'yes '" |: "'no  |
|00001270| 27 22 7d 5d 0d 09 73 65 | 74 20 64 69 72 74 79 20 |'"}]..se|t dirty |
|00001280| 5b 65 78 70 72 20 7b 24 | 74 68 69 6e 6b 73 61 76 |[expr {$|thinksav|
|00001290| 65 44 69 72 74 79 20 3f | 20 22 27 79 65 73 20 27 |eDirty ?| "'yes '|
|000012a0| 22 20 3a 20 22 27 6e 6f | 20 20 27 22 7d 5d 0d 09 |" : "'no|  '"}]..|
|000012b0| 73 77 69 74 63 68 54 6f | 20 24 6e 61 6d 65 0d 09 |switchTo| $name..|
|000012c0| 41 45 42 75 69 6c 64 20 | 2d 71 20 24 6e 61 6d 65 |AEBuild |-q $name|
|000012d0| 20 4b 41 48 4c 20 22 52 | 55 4e 20 22 20 22 44 42 | KAHL "R|UN " "DB|
|000012e0| 55 47 22 20 24 64 62 75 | 67 20 20 22 47 4f 20 20 |UG" $dbu|g  "GO  |
|000012f0| 22 20 24 67 6f 20 22 55 | 50 44 54 22 20 24 75 70 |" $go "U|PDT" $up|
|00001300| 64 61 74 65 20 22 73 61 | 76 6f 22 20 24 64 69 72 |date "sa|vo" $dir|
|00001310| 74 79 0d 7d 0d 0d 70 72 | 6f 63 20 64 65 62 75 67 |ty.}..pr|oc debug|
|00001320| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 54 48 | {} {..g|lobal TH|
|00001330| 49 4e 4b 20 0d 09 73 65 | 74 20 66 6e 61 6d 65 20 |INK ..se|t fname |
|00001340| 5b 6c 69 6e 64 65 78 20 | 5b 77 69 6e 4e 61 6d 65 |[lindex |[winName|
|00001350| 73 20 2d 66 5d 20 30 5d | 0d 09 73 65 74 20 72 6f |s -f] 0]|..set ro|
|00001360| 77 20 5b 65 78 70 72 20 | 5b 6c 69 6e 64 65 78 20 |w [expr |[lindex |
|00001370| 5b 70 6f 73 54 6f 52 6f | 77 43 6f 6c 20 5b 67 65 |[posToRo|wCol [ge|
|00001380| 74 50 6f 73 5d 5d 20 30 | 5d 20 2d 20 31 5d 0d 09 |tPos]] 0|] - 1]..|
|00001390| 73 65 74 20 72 65 73 20 | 5b 41 45 42 75 69 6c 64 |set res |[AEBuild|
|000013a0| 20 24 54 48 49 4e 4b 20 | 4b 41 48 4c 20 44 42 47 | $THINK |KAHL DBG|
|000013b0| 46 20 22 2d 2d 2d 2d 22 | 20 5b 6d 61 6b 65 41 6c |F "----"| [makeAl|
|000013c0| 69 73 20 24 66 6e 61 6d | 65 5d 20 4c 4e 4e 4f 20 |is $fnam|e] LNNO |
|000013d0| 22 73 68 6f 72 74 28 24 | 72 6f 77 29 22 20 5d 0d |"short($|row)" ].|
|000013e0| 7d 0d 0d 70 72 6f 63 20 | 63 6e 74 20 7b 7d 20 7b |}..proc |cnt {} {|
|000013f0| 0d 09 67 6c 6f 62 61 6c | 20 54 48 49 4e 4b 0d 09 |..global| THINK..|
|00001400| 41 45 42 75 69 6c 64 20 | 2d 74 20 36 30 30 30 20 |AEBuild |-t 6000 |
|00001410| 2d 72 20 24 54 48 49 4e | 4b 20 63 6f 72 65 20 63 |-r $THIN|K core c|
|00001420| 6e 74 65 20 22 2d 2d 2d | 2d 22 20 7b 6f 62 6a 7b |nte "---|-" {obj{|
|00001430| 77 61 6e 74 3a 74 79 70 | 65 28 27 50 44 4f 43 27 |want:typ|e('PDOC'|
|00001440| 29 2c 20 66 72 6f 6d 3a | 27 6e 75 6c 6c 27 28 29 |), from:|'null'()|
|00001450| 2c 20 66 6f 72 6d 3a 27 | 69 6e 64 78 27 2c 20 73 |, form:'|indx', s|
|00001460| 65 6c 64 3a 31 7d 7d 20 | 22 6b 6f 63 6c 22 20 22 |eld:1}} |"kocl" "|
|00001470| 74 79 70 65 28 27 73 66 | 69 6c 27 29 22 0d 7d 0d |type('sf|il')".}.|
|00001480| 0d 70 72 6f 63 20 74 68 | 69 6e 6b 46 69 6c 65 4e |.proc th|inkFileN|
|00001490| 61 6d 65 20 7b 61 72 67 | 7d 20 7b 0d 09 67 6c 6f |ame {arg|} {..glo|
|000014a0| 62 61 6c 20 54 48 49 4e | 4b 0d 09 73 65 74 20 65 |bal THIN|K..set e|
|000014b0| 76 65 6e 74 20 5b 6a 6f | 69 6e 20 5b 63 6f 6e 63 |vent [jo|in [conc|
|000014c0| 61 74 20 7b 6f 62 6a 5c | 20 5c 7b 77 61 6e 74 3a |at {obj\| \{want:|
|000014d0| 74 79 70 65 28 27 70 72 | 6f 70 27 29 2c 5c 20 66 |type('pr|op'),\ f|
|000014e0| 72 6f 6d 3a 6f 62 6a 5c | 20 5c 7b 77 61 6e 74 3a |rom:obj\| \{want:|
|000014f0| 74 79 70 65 28 27 53 46 | 49 4c 27 29 2c 5c 20 66 |type('SF|IL'),\ f|
|00001500| 72 6f 6d 3a 27 6e 75 6c | 6c 27 28 29 2c 5c 20 66 |rom:'nul|l'(),\ f|
|00001510| 6f 72 6d 3a 27 69 6e 64 | 78 27 2c 5c 20 73 65 6c |orm:'ind|x',\ sel|
|00001520| 64 3a 7d 20 24 61 72 67 | 20 7b 5c 7d 2c 5c 20 66 |d:} $arg| {\},\ f|
|00001530| 6f 72 6d 3a 27 70 72 6f | 70 27 2c 5c 20 73 65 6c |orm:'pro|p',\ sel|
|00001540| 64 3a 74 79 70 65 28 27 | 46 53 53 5c 20 27 29 5c |d:type('|FSS\ ')\|
|00001550| 7d 7d 5d 20 22 22 5d 0d | 09 73 65 74 20 62 6c 61 |}}] ""].|.set bla|
|00001560| 68 20 5b 41 45 42 75 69 | 6c 64 20 2d 72 20 24 54 |h [AEBui|ld -r $T|
|00001570| 48 49 4e 4b 20 22 63 6f | 72 65 22 20 22 67 65 74 |HINK "co|re" "get|
|00001580| 64 22 20 20 22 2d 2d 2d | 2d 22 20 24 65 76 65 6e |d"  "---|-" $even|
|00001590| 74 5d 0d 09 72 65 67 65 | 78 70 20 7b c7 2e 2a c8 |t]..rege|xp {..*.|
|000015a0| 7d 20 24 62 6c 61 68 20 | 62 6c 61 68 0d 09 72 65 |} $blah |blah..re|
|000015b0| 74 75 72 6e 20 5b 73 70 | 65 63 54 6f 50 61 74 68 |turn [sp|ecToPath|
|000015c0| 4e 61 6d 65 20 5b 73 74 | 72 69 6e 67 20 74 72 69 |Name [st|ring tri|
|000015d0| 6d 20 24 62 6c 61 68 20 | 7b c7 c8 7d 5d 5d 0d 7d |m $blah |{..}]].}|
|000015e0| 0d 0d 70 72 6f 63 20 74 | 68 69 6e 6b 49 6e 63 6c |..proc t|hinkIncl|
|000015f0| 75 64 65 20 7b 6e 61 6d | 65 7d 20 7b 0d 09 67 6c |ude {nam|e} {..gl|
|00001600| 6f 62 61 6c 20 54 48 49 | 4e 4b 20 74 68 69 6e 6b |obal THI|NK think|
|00001610| 70 61 74 68 73 0d 09 69 | 66 20 7b 5b 69 6e 66 6f |paths..i|f {[info|
|00001620| 20 65 78 69 73 74 73 20 | 74 68 69 6e 6b 70 61 74 | exists |thinkpat|
|00001630| 68 73 5d 7d 20 7b 75 6e | 73 65 74 20 74 68 69 6e |hs]} {un|set thin|
|00001640| 6b 70 61 74 68 73 7d 0d | 09 73 65 74 20 65 76 65 |kpaths}.|.set eve|
|00001650| 6e 74 20 5b 6a 6f 69 6e | 20 5b 63 6f 6e 63 61 74 |nt [join| [concat|
|00001660| 20 7b 6f 62 6a 5c 20 5c | 7b 77 61 6e 74 3a 74 79 | {obj\ \|{want:ty|
|00001670| 70 65 28 27 70 72 6f 70 | 27 29 2c 5c 20 66 72 6f |pe('prop|'),\ fro|
|00001680| 6d 3a 6f 62 6a 5c 20 5c | 7b 77 61 6e 74 3a 74 79 |m:obj\ \|{want:ty|
|00001690| 70 65 28 27 53 46 49 4c | 27 29 2c 5c 20 66 72 6f |pe('SFIL|'),\ fro|
|000016a0| 6d 3a 27 6e 75 6c 6c 27 | 28 29 2c 5c 20 66 6f 72 |m:'null'|(),\ for|
|000016b0| 6d 3a 27 6e 61 6d 65 27 | 2c 20 73 65 6c 64 3a d2 |m:'name'|, seld:.|
|000016c0| 7d 20 5b 66 69 6c 65 20 | 74 61 69 6c 20 24 6e 61 |} [file |tail $na|
|000016d0| 6d 65 5d 20 7b d3 5c 7d | 2c 5c 20 66 6f 72 6d 3a |me] {.\}|,\ form:|
|000016e0| 27 70 72 6f 70 27 2c 5c | 20 73 65 6c 64 3a 74 79 |'prop',\| seld:ty|
|000016f0| 70 65 28 27 49 4e 43 4c | 27 29 5c 7d 7d 5d 20 22 |pe('INCL|')\}}] "|
|00001700| 22 5d 0d 09 73 65 74 20 | 62 6c 61 68 20 5b 41 45 |"]..set |blah [AE|
|00001710| 42 75 69 6c 64 20 2d 72 | 20 24 54 48 49 4e 4b 20 |Build -r| $THINK |
|00001720| 22 63 6f 72 65 22 20 22 | 67 65 74 64 22 20 20 22 |"core" "|getd"  "|
|00001730| 2d 2d 2d 2d 22 20 24 65 | 76 65 6e 74 5d 0d 09 69 |----" $e|vent]..i|
|00001740| 66 20 7b 21 5b 72 65 67 | 65 78 70 20 7b c7 7d 20 |f {![reg|exp {.} |
|00001750| 24 62 6c 61 68 5d 7d 20 | 7b 72 65 74 75 72 6e 20 |$blah]} |{return |
|00001760| 7b 7b 28 4e 6f 20 69 6e | 63 6c 75 64 65 73 7d 7d |{{(No in|cludes}}|
|00001770| 7d 0d 09 72 65 67 73 75 | 62 20 2d 61 6c 6c 20 7b |}..regsu|b -all {|
|00001780| c8 5b 5e c7 5d 2a c7 7d | 20 24 62 6c 61 68 20 7b |.[^.]*.}| $blah {|
|00001790| 20 7d 20 72 61 77 0d 09 | 72 65 67 73 75 62 20 7b | } raw..|regsub {|
|000017a0| 5b 5e c7 5d 2a c7 7d 20 | 24 72 61 77 20 7b 7d 20 |[^.]*.} |$raw {} |
|000017b0| 72 61 77 0d 09 72 65 67 | 73 75 62 20 7b c8 2e 2a |raw..reg|sub {..*|
|000017c0| 7d 20 24 72 61 77 20 7b | 7d 20 72 61 77 0d 09 66 |} $raw {|} raw..f|
|000017d0| 6f 72 65 61 63 68 20 66 | 20 24 72 61 77 20 7b 0d |oreach f| $raw {.|
|000017e0| 09 09 73 65 74 20 70 61 | 74 68 20 5b 73 70 65 63 |..set pa|th [spec|
|000017f0| 54 6f 50 61 74 68 4e 61 | 6d 65 20 24 66 5d 0d 09 |ToPathNa|me $f]..|
|00001800| 09 73 65 74 20 74 6c 20 | 5b 66 69 6c 65 20 74 61 |.set tl |[file ta|
|00001810| 69 6c 20 24 70 61 74 68 | 5d 0d 09 09 73 65 74 20 |il $path|]...set |
|00001820| 74 68 69 6e 6b 70 61 74 | 68 73 28 24 74 6c 29 20 |thinkpat|hs($tl) |
|00001830| 24 70 61 74 68 0d 09 09 | 6c 61 70 70 65 6e 64 20 |$path...|lappend |
|00001840| 6e 61 6d 65 73 20 24 74 | 6c 0d 09 7d 0d 09 72 65 |names $t|l..}..re|
|00001850| 74 75 72 6e 20 5b 6c 73 | 6f 72 74 20 2d 69 67 6e |turn [ls|ort -ign|
|00001860| 6f 72 65 20 24 6e 61 6d | 65 73 5d 0d 7d 0d 0d 23 |ore $nam|es].}..#|
|00001870| 20 43 61 6c 6c 65 64 20 | 62 79 20 41 6c 70 68 61 | Called |by Alpha|
|00001880| 20 74 6f 20 67 65 74 20 | 6c 69 73 74 20 6f 66 20 | to get |list of |
|00001890| 69 6e 63 6c 75 64 65 20 | 66 69 6c 65 73 20 66 6f |include |files fo|
|000018a0| 72 20 70 6f 70 75 70 2e | 0d 70 72 6f 63 20 74 68 |r popup.|.proc th|
|000018b0| 69 6e 6b 49 6e 63 6c 75 | 64 65 46 69 6c 65 73 20 |inkInclu|deFiles |
|000018c0| 7b 7d 20 7b 0d 09 69 66 | 20 7b 5b 63 61 74 63 68 |{} {..if| {[catch|
|000018d0| 20 7b 74 68 69 6e 6b 49 | 6e 63 6c 75 64 65 20 5b | {thinkI|nclude [|
|000018e0| 6c 69 6e 64 65 78 20 5b | 77 69 6e 4e 61 6d 65 73 |lindex [|winNames|
|000018f0| 5d 20 30 5d 7d 20 72 65 | 74 5d 7d 20 7b 0d 09 09 |] 0]} re|t]} {...|
|00001900| 72 65 74 75 72 6e 20 7b | 7b 28 2a 20 54 48 49 4e |return {|{(* THIN|
|00001910| 4b 20 6e 6f 74 20 72 75 | 6e 6e 69 6e 67 20 2a 7d |K not ru|nning *}|
|00001920| 7d 0d 09 7d 0d 09 72 65 | 74 75 72 6e 20 24 72 65 |}..}..re|turn $re|
|00001930| 74 0d 7d 0d 0d 23 20 43 | 61 6c 6c 65 64 20 62 79 |t.}..# C|alled by|
|00001940| 20 41 6c 70 68 61 20 74 | 6f 20 65 64 69 74 20 72 | Alpha t|o edit r|
|00001950| 65 73 75 6c 74 20 6f 66 | 20 70 6f 70 75 70 0d 70 |esult of| popup.p|
|00001960| 72 6f 63 20 74 68 69 6e | 6b 45 64 69 74 46 69 6c |roc thin|kEditFil|
|00001970| 65 20 7b 6e 61 6d 65 7d | 20 7b 0d 09 67 6c 6f 62 |e {name}| {..glob|
|00001980| 61 6c 20 74 68 69 6e 6b | 70 61 74 68 73 0d 09 0d |al think|paths...|
|00001990| 09 65 64 69 74 20 24 74 | 68 69 6e 6b 70 61 74 68 |.edit $t|hinkpath|
|000019a0| 73 28 24 6e 61 6d 65 29 | 0d 7d 0d 0d 70 72 6f 63 |s($name)|.}..proc|
|000019b0| 20 6f 70 65 6e 48 65 61 | 64 65 72 20 7b 7d 20 7b | openHea|der {} {|
|000019c0| 0d 09 67 6c 6f 62 61 6c | 20 74 68 69 6e 6b 70 61 |..global| thinkpa|
|000019d0| 74 68 73 0d 0d 09 73 65 | 74 20 6e 61 6d 65 20 5b |ths...se|t name [|
|000019e0| 6c 69 6e 64 65 78 20 5b | 77 69 6e 4e 61 6d 65 73 |lindex [|winNames|
|000019f0| 5d 20 30 5d 0d 09 69 66 | 20 7b 21 5b 73 74 72 69 |] 0]..if| {![stri|
|00001a00| 6e 67 20 6c 65 6e 67 74 | 68 20 24 6e 61 6d 65 5d |ng lengt|h $name]|
|00001a10| 7d 20 72 65 74 75 72 6e | 0d 09 69 66 20 7b 5b 63 |} return|..if {[c|
|00001a20| 61 74 63 68 20 7b 74 68 | 69 6e 6b 49 6e 63 6c 75 |atch {th|inkInclu|
|00001a30| 64 65 20 24 6e 61 6d 65 | 7d 20 6e 61 6d 65 73 5d |de $name|} names]|
|00001a40| 7d 20 7b 0d 09 09 6d 65 | 73 73 61 67 65 20 22 54 |} {...me|ssage "T|
|00001a50| 68 69 6e 6b 20 6e 6f 74 | 20 72 75 6e 6e 69 6e 67 |hink not| running|
|00001a60| 21 22 20 0d 09 09 62 65 | 65 70 0d 09 09 72 65 74 |!" ...be|ep...ret|
|00001a70| 75 72 6e 0d 09 7d 0d 09 | 69 66 20 7b 21 5b 73 74 |urn..}..|if {![st|
|00001a80| 72 69 6e 67 20 6c 65 6e | 67 74 68 20 24 6e 61 6d |ring len|gth $nam|
|00001a90| 65 5d 20 7c 7c 20 5b 73 | 74 72 69 6e 67 20 6d 61 |e] || [s|tring ma|
|00001aa0| 74 63 68 20 7b 28 2a 7d | 20 5b 6c 69 6e 64 65 78 |tch {(*}| [lindex|
|00001ab0| 20 24 6e 61 6d 65 73 20 | 30 5d 5d 7d 20 7b 0d 09 | $names |0]]} {..|
|00001ac0| 09 6d 65 73 73 61 67 65 | 20 22 4e 6f 20 68 65 61 |.message| "No hea|
|00001ad0| 64 65 72 73 2e 22 0d 09 | 09 62 65 65 70 0d 09 09 |ders."..|.beep...|
|00001ae0| 72 65 74 75 72 6e 0d 09 | 7d 0d 09 73 65 74 20 72 |return..|}..set r|
|00001af0| 65 73 20 5b 6c 69 73 74 | 70 69 63 6b 20 2d 70 20 |es [list|pick -p |
|00001b00| 7b 49 6e 63 6c 75 64 65 | 20 46 69 6c 65 3f 7d 20 |{Include| File?} |
|00001b10| 24 6e 61 6d 65 73 5d 0d | 09 69 66 20 7b 5b 73 74 |$names].|.if {[st|
|00001b20| 72 69 6e 67 20 6c 65 6e | 67 74 68 20 24 72 65 73 |ring len|gth $res|
|00001b30| 5d 7d 20 7b 65 64 69 74 | 20 24 74 68 69 6e 6b 70 |]} {edit| $thinkp|
|00001b40| 61 74 68 73 28 24 72 65 | 73 29 7d 0d 7d 0d 09 09 |aths($re|s)}.}...|
|00001b50| 0d 0d 70 72 6f 63 20 72 | 65 6d 6f 76 65 44 75 70 |..proc r|emoveDup|
|00001b60| 73 20 7b 6c 7d 20 7b 0d | 09 66 6f 72 65 61 63 68 |s {l} {.|.foreach|
|00001b70| 20 66 20 24 6c 20 7b 0d | 09 09 73 65 74 20 73 69 | f $l {.|..set si|
|00001b80| 6c 6c 79 28 24 66 29 20 | 31 0d 09 7d 0d 09 69 66 |lly($f) |1..}..if|
|00001b90| 20 7b 5b 69 6e 66 6f 20 | 65 78 69 73 74 73 20 73 | {[info |exists s|
|00001ba0| 69 6c 6c 79 5d 7d 20 7b | 0d 09 09 72 65 74 75 72 |illy]} {|...retur|
|00001bb0| 6e 20 5b 61 72 72 61 79 | 20 6e 61 6d 65 73 20 73 |n [array| names s|
|00001bc0| 69 6c 6c 79 5d 0d 09 7d | 0d 7d 0d 09 09 09 0d 23 |illy]..}|.}.....#|
|00001bd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001be0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c20| 0d 09 09 0d 70 72 6f 63 | 20 68 61 6e 64 6c 65 54 |....proc| handleT|
|00001c30| 68 69 6e 6b 52 65 70 6c | 79 20 7b 20 6c 20 7d 20 |hinkRepl|y { l } |
|00001c40| 7b 0d 09 67 6c 6f 62 61 | 6c 20 74 68 69 6e 6b 45 |{..globa|l thinkE|
|00001c50| 72 72 6f 72 73 20 74 65 | 49 6e 64 65 78 20 41 4c |rrors te|Index AL|
|00001c60| 50 48 41 20 74 69 6c 65 | 48 65 69 67 68 74 20 77 |PHA tile|Height w|
|00001c70| 69 6e 4d 6f 64 65 73 20 | 74 65 72 72 4d 65 6e 75 |inModes |terrMenu|
|00001c80| 0d 09 73 65 74 20 74 68 | 69 6e 6b 45 72 72 6f 72 |..set th|inkError|
|00001c90| 73 20 24 6c 0d 09 73 77 | 69 74 63 68 54 6f 20 24 |s $l..sw|itchTo $|
|00001ca0| 41 4c 50 48 41 0d 09 73 | 65 74 20 74 65 49 6e 64 |ALPHA..s|et teInd|
|00001cb0| 65 78 20 30 0d 09 0d 09 | 67 6c 6f 62 61 6c 20 64 |ex 0....|global d|
|00001cc0| 65 66 48 65 69 67 68 74 | 20 64 65 66 4c 65 66 74 |efHeight| defLeft|
|00001cd0| 20 64 65 66 54 6f 70 20 | 64 65 66 57 69 64 74 68 | defTop |defWidth|
|00001ce0| 0d 09 73 65 74 20 73 6c | 20 24 64 65 66 4c 65 66 |..set sl| $defLef|
|00001cf0| 74 0d 09 73 65 74 20 73 | 74 20 24 64 65 66 54 6f |t..set s|t $defTo|
|00001d00| 70 0d 09 73 65 74 20 73 | 68 20 24 64 65 66 48 65 |p..set s|h $defHe|
|00001d10| 69 67 68 74 0d 09 73 65 | 74 20 73 77 20 24 64 65 |ight..se|t sw $de|
|00001d20| 66 57 69 64 74 68 0d 09 | 73 65 74 20 64 65 66 48 |fWidth..|set defH|
|00001d30| 65 69 67 68 74 20 31 34 | 30 0d 09 73 65 74 20 64 |eight 14|0..set d|
|00001d40| 65 66 57 69 64 74 68 20 | 35 31 30 0d 09 73 65 74 |efWidth |510..set|
|00001d50| 20 64 65 66 4c 65 66 74 | 20 33 0d 09 73 65 74 20 | defLeft| 3..set |
|00001d60| 64 65 66 54 6f 70 20 34 | 30 0d 0d 09 66 6f 72 65 |defTop 4|0...fore|
|00001d70| 61 63 68 20 65 72 72 20 | 24 6c 20 7b 0d 09 09 61 |ach err |$l {...a|
|00001d80| 70 70 65 6e 64 20 6c 69 | 6e 65 73 20 22 5c 22 5b |ppend li|nes "\"[|
|00001d90| 66 69 6c 65 20 74 61 69 | 6c 20 5b 6c 69 6e 64 65 |file tai|l [linde|
|00001da0| 78 20 24 65 72 72 20 30 | 5d 5d 5c 22 3b 20 22 20 |x $err 0|]]\"; " |
|00001db0| 5b 66 6f 72 6d 61 74 20 | 22 4c 69 6e 65 20 25 64 |[format |"Line %d|
|00001dc0| 3a 20 22 20 5b 6c 69 6e | 64 65 78 20 24 65 72 72 |: " [lin|dex $err|
|00001dd0| 20 32 5d 5d 20 5b 6c 69 | 6e 64 65 78 20 24 65 72 | 2]] [li|ndex $er|
|00001de0| 72 20 31 5d 20 22 5c 74 | 5c 74 5c 74 5c 74 5c 74 |r 1] "\t|\t\t\t\t|
|00001df0| 5c 74 5c 74 5c 74 5c 74 | 5c 74 5c 74 5c 74 5c 74 |\t\t\t\t|\t\t\t\t|
|00001e00| 5c 74 5c 74 5c 74 5c 74 | 5c 74 5c 74 5c 74 5c 74 |\t\t\t\t|\t\t\t\t|
|00001e10| 5c 74 5c 74 b0 5b 6c 69 | 6e 64 65 78 20 24 65 72 |\t\t.[li|ndex $er|
|00001e20| 72 20 30 5d b0 5b 6c 69 | 6e 64 65 78 20 24 65 72 |r 0].[li|ndex $er|
|00001e30| 72 20 31 5d 5c 72 22 0d | 09 7d 0d 0d 09 6e 65 77 |r 1]\r".|.}...new|
|00001e40| 0d 09 73 65 74 20 64 65 | 66 4c 65 66 74 20 24 73 |..set de|fLeft $s|
|00001e50| 6c 0d 09 73 65 74 20 64 | 65 66 54 6f 70 20 24 73 |l..set d|efTop $s|
|00001e60| 74 0d 09 73 65 74 20 64 | 65 66 48 65 69 67 68 74 |t..set d|efHeight|
|00001e70| 20 24 73 68 0d 09 73 65 | 74 20 64 65 66 57 69 64 | $sh..se|t defWid|
|00001e80| 74 68 20 24 73 77 0d 0d | 09 69 6e 73 65 72 74 54 |th $sw..|.insertT|
|00001e90| 65 78 74 20 22 28 3c 63 | 72 3e 20 74 6f 20 67 6f |ext "(<c|r> to go|
|00001ea0| 20 74 6f 20 65 72 72 6f | 72 29 5c 72 2d 2d 2d 2d | to erro|r)\r----|
|00001eb0| 2d 5c 72 22 20 24 6c 69 | 6e 65 73 0d 09 73 65 6c |-\r" $li|nes..sel|
|00001ec0| 65 63 74 20 5b 6e 65 78 | 74 4c 69 6e 65 53 74 61 |ect [nex|tLineSta|
|00001ed0| 72 74 20 5b 6e 65 78 74 | 4c 69 6e 65 53 74 61 72 |rt [next|LineStar|
|00001ee0| 74 20 30 5d 5d 20 5b 6e | 65 78 74 4c 69 6e 65 53 |t 0]] [n|extLineS|
|00001ef0| 74 61 72 74 20 5b 6e 65 | 78 74 4c 69 6e 65 53 74 |tart [ne|xtLineSt|
|00001f00| 61 72 74 20 5b 6e 65 78 | 74 4c 69 6e 65 53 74 61 |art [nex|tLineSta|
|00001f10| 72 74 20 30 5d 5d 5d 0d | 09 0d 09 67 6c 6f 62 61 |rt 0]]].|...globa|
|00001f20| 6c 20 77 69 6e 4d 6f 64 | 65 73 0d 09 73 65 74 20 |l winMod|es..set |
|00001f30| 6e 61 6d 65 20 5b 6c 69 | 6e 64 65 78 20 5b 77 69 |name [li|ndex [wi|
|00001f40| 6e 4e 61 6d 65 73 5d 20 | 30 5d 0d 09 63 68 61 6e |nNames] |0]..chan|
|00001f50| 67 65 4d 6f 64 65 20 5b | 73 65 74 20 77 69 6e 4d |geMode [|set winM|
|00001f60| 6f 64 65 73 28 24 6e 61 | 6d 65 29 20 42 72 77 73 |odes($na|me) Brws|
|00001f70| 5d 0d 7d 0d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |].}.....|........|
|00001f80| 00 00 01 00 00 00 03 46 | 00 00 02 46 00 00 00 42 |.......F|...F...B|
|00001f90| dd dd dd dd f0 00 00 00 | 00 00 f0 00 00 00 00 00 |........|........|
|00001fa0| 00 00 00 00 f0 00 00 00 | 00 00 f0 00 00 00 00 00 |........|........|
|00001fb0| 09 74 68 69 6e 6b 2e 74 | 63 6c 02 00 02 00 54 45 |.think.t|cl....TE|
|00001fc0| 58 54 41 4c 46 41 01 00 | ff ff ff ff 00 00 00 00 |XTALFA..|........|
|00001fd0| 02 00 54 45 58 54 41 4c | 46 41 01 00 ff ff ff ff |..TEXTAL|FA......|
|00001fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 00 aa 26 90 8a 00 00 | 1e f5 00 00 03 88 00 00 |...&....|........|
|00002000| 00 00 00 00 f0 00 00 00 | 00 00 ff ff ff ff ff ff |........|........|
|00002010| ff ff ff ff f0 00 00 00 | 00 00 00 00 04 00 00 00 |........|........|
|00002020| 00 ff ff ff ff ff ff ff | ff ff 00 00 00 00 00 00 |........|........|
|00002030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002040| ff 00 00 00 00 00 00 00 | 00 00 ff 00 00 00 00 00 |........|........|
|00002050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002060| ff 00 00 00 00 00 00 00 | 00 00 ff 00 00 00 00 00 |........|........|
|00002070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002080| 00 00 01 f6 00 19 00 00 | 0d e2 00 00 0d e2 03 61 |........|.......a|
|00002090| 64 64 00 00 0e 6e 00 00 | 0e 6e 0d 61 64 64 41 6e |dd...n..|.n.addAn|
|000020a0| 64 43 6f 6d 70 69 6c 65 | 00 00 0e ca 00 00 0e ca |dCompile|........|
|000020b0| 0d 62 72 69 6e 67 55 70 | 54 6f 44 61 74 65 00 00 |.bringUp|ToDate..|
|000020c0| 09 4b 00 00 09 4b 0b 63 | 68 65 63 6b 53 79 6e 74 |.K...K.c|heckSynt|
|000020d0| 61 78 00 00 13 63 00 00 | 13 63 03 63 6e 74 00 00 |ax...c..|.c.cnt..|
|000020e0| 09 1a 00 00 09 1a 07 63 | 6f 6d 70 69 6c 65 00 00 |.......c|ompile..|
|000020f0| 07 73 00 00 07 73 13 63 | 72 65 61 74 65 54 68 69 |.s...s.c|reateThi|
|00002100| 6e 6b 46 69 6c 65 73 65 | 74 00 00 00 12 96 00 00 |nkFilese|t.......|
|00002110| 12 96 05 64 65 62 75 67 | 00 00 09 80 00 00 09 80 |...debug|........|
|00002120| 0b 64 69 73 61 73 73 65 | 6d 62 6c 65 00 00 1b a4 |.disasse|mble....|
|00002130| 00 00 1b a4 11 68 61 6e | 64 6c 65 54 68 69 6e 6b |.....han|dleThink|
|00002140| 52 65 70 6c 79 00 00 00 | 0f dc 00 00 0f dc 05 6d |Reply...|.......m|
|00002150| 61 6b 65 00 00 00 19 2c | 00 00 19 2c 0b 6f 70 65 |ake....,|...,.ope|
|00002160| 6e 48 65 61 64 65 72 00 | 00 00 0e 98 00 00 0e 98 |nHeader.|........|
|00002170| 0b 70 72 65 63 6f 6d 70 | 69 6c 65 00 00 00 0b 03 |.precomp|ile.....|
|00002180| 00 00 0b 03 0b 70 72 65 | 70 72 6f 63 65 73 73 00 |.....pre|process.|
|00002190| 00 00 04 bd 00 00 04 bd | 0f 70 72 6f 6a 65 63 74 |........|.project|
|000021a0| 46 69 6c 65 4c 69 73 74 | 00 00 1a d2 00 00 1a d2 |FileList|........|
|000021b0| 0b 72 65 6d 6f 76 65 44 | 75 70 73 00 00 00 10 c7 |.removeD|ups.....|
|000021c0| 00 00 10 c7 03 72 75 6e | 00 00 06 a1 00 00 06 a1 |.....run|........|
|000021d0| 0f 73 65 61 72 63 68 4e | 65 78 74 46 69 6c 65 00 |.searchN|extFile.|
|000021e0| 00 00 0c 61 00 00 0c 61 | 11 73 65 6e 64 43 6f 6d |...a...a|.sendCom|
|000021f0| 70 69 6c 65 45 76 65 6e | 74 00 00 00 06 2b 00 00 |pileEven|t....+..|
|00002200| 06 2b 05 74 68 69 6e 6b | 00 00 18 df 00 00 18 df |.+.think|........|
|00002210| 0d 74 68 69 6e 6b 45 64 | 69 74 46 69 6c 65 00 00 |.thinkEd|itFile..|
|00002220| 14 01 00 00 14 01 0d 74 | 68 69 6e 6b 46 69 6c 65 |.......t|hinkFile|
|00002230| 4e 61 6d 65 00 00 15 62 | 00 00 15 62 0d 74 68 69 |Name...b|...b.thi|
|00002240| 6e 6b 49 6e 63 6c 75 64 | 65 00 00 00 18 29 00 00 |nkInclud|e....)..|
|00002250| 18 29 11 74 68 69 6e 6b | 49 6e 63 6c 75 64 65 46 |.).think|IncludeF|
|00002260| 69 6c 65 73 00 00 03 8e | 00 00 03 8e 0d 74 68 69 |iles....|.....thi|
|00002270| 6e 6b 4e 75 6d 46 69 6c | 65 73 00 00 00 48 00 09 |nkNumFil|es...H..|
|00002280| 4d 6f 6e 61 63 6f 00 00 | 00 dd c7 e4 00 00 00 00 |Monaco..|........|
|00002290| 00 f4 cc ee 00 03 22 52 | 03 0d 00 f2 d7 42 00 00 |......"R|.....B..|
|000022a0| 00 04 00 04 00 28 00 03 | 01 ca 02 79 00 28 00 03 |.....(..|...y.(..|
|000022b0| 01 ca 02 79 aa a0 6d 0b | 00 00 14 01 00 00 15 61 |...y..m.|.......a|
|000022c0| 00 00 14 00 01 00 00 00 | 01 00 00 00 03 46 00 00 |........|.....F..|
|000022d0| 02 46 00 00 00 42 00 dd | c7 e4 0c dc 00 00 00 1c |.F...B..|........|
|000022e0| 00 3e 00 00 4d 50 53 52 | 00 01 00 0a 03 ef 00 00 |.>..MPSR|........|
|000022f0| 00 00 00 00 00 00 00 00 | 03 ed ff ff 00 00 01 fa |........|........|
|00002300| 00 e1 9f bc 03 74 61 62 | 00 00 00 00 00 00 00 00 |.....tab|........|
|00002310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+